﻿<Serializable()> _
Public Class Evendedor

#Region "           Atributos                       "
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idVendedor As Int32
    Private _nombre As String
    Private _apePaterno As String
    Private _apeMaterno As String
    Private _telefono As String
    Private _email As String
    Private _movil As String
    Private _comisionProforma As Decimal
    Private _comisionSeparacion As Decimal
    Private _comisionVenta As Decimal
    Private _estado As String
    Private _descEstado As String

    Private _tpoDcmto As EtpoDcmto
    Private _nroDcmto As String
    Private _idUsuario As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idVendedor() As Int32
        Get
            Return _idVendedor
        End Get
        Set(ByVal value As Int32)
            _idVendedor = value
        End Set
    End Property
    Public Property nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal value As String)
            _nombre = value
        End Set
    End Property
    Public Property apePaterno() As String
        Get
            Return _apePaterno
        End Get
        Set(ByVal value As String)
            _apePaterno = value
        End Set
    End Property
    Public Property apeMaterno() As String
        Get
            Return _apeMaterno
        End Get
        Set(ByVal value As String)
            _apeMaterno = value
        End Set
    End Property
    Public Property telefono() As String
        Get
            Return _telefono
        End Get
        Set(ByVal value As String)
            _telefono = value
        End Set
    End Property
    Public Property email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property
    Public Property movil() As String
        Get
            Return _movil
        End Get
        Set(ByVal value As String)
            _movil = value
        End Set
    End Property
    Public Property comisionProforma() As Decimal
        Get
            Return _comisionProforma
        End Get
        Set(ByVal value As Decimal)
            _comisionProforma = value
        End Set
    End Property
    Public Property comisionSeparacion() As Decimal
        Get
            Return _comisionSeparacion
        End Get
        Set(ByVal value As Decimal)
            _comisionSeparacion = value
        End Set
    End Property
    Public Property comisionVenta() As Decimal
        Get
            Return _comisionVenta
        End Get
        Set(ByVal value As Decimal)
            _comisionVenta = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property EtpoDocmto() As EtpoDcmto
        Get
            Return _tpoDcmto
        End Get
        Set(ByVal value As EtpoDcmto)
            _tpoDcmto = value
        End Set
    End Property
    Public Property nroDcmto() As String
        Get
            Return _nroDcmto
        End Get
        Set(ByVal value As String)
            _nroDcmto = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property NombresCompletos() As String
        Get
            Return nombre & " " & apePaterno & " " & apeMaterno
        End Get
    End Property
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idVendedor As Int32)
        Me.idVendedor = idVendedor
    End Sub
    Public Sub New(ByVal idVendedor As Int32, ByVal nombre As String)
        Me.idVendedor = idVendedor
        Me.nombre = nombre
    End Sub
    Public Sub New(ByVal idVendedor As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String)
        Me.idVendedor = idVendedor
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
    End Sub
    Public Sub New(ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String)
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
    End Sub
    '-------    CONSTRUCTOR  REPORTE DE SEGUIMIENTO    --------'
    Public Sub New(ByVal idVendedor As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDcmto As String, ByVal telefono As String, _
                   ByVal movil As String, ByVal comisionProforma As Decimal, ByVal comisionSeparacion As Decimal, ByVal comisionVenta As Decimal, _
                   ByVal email As String, ByVal estado As String)
        Me.idVendedor = idVendedor
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        _tpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDcmto = nroDcmto
        Me.telefono = telefono
        Me.movil = movil
        Me.comisionProforma = comisionProforma
        Me.comisionSeparacion = comisionSeparacion
        Me.comisionVenta = comisionVenta
        Me.email = email
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
#End Region

End Class
